EXTENSIONS: Issue 82 
For the PRO/FILE 2068 user 


Welcome to issue number two of PRO/FILE EXTENSIONS. I think you 
will really enjoy the additional capabilities available by adding the 
following routines. 

As things are added to the program the inter-relationships become 
much more complicated. To give you an idea of what I mean consider 
this: If you have two sets of three objects each, you could take one 
from each set and come up with 9 different combinations. However, if 
you add a third set and took one from each you could have 27 
combinations. Another set would provide for 81! Obviously it gets 
complicated very quickly. 

This is the same type of thing that occurs as you add routines to 
a program - it soon becomes almost impossible to check every possible 
combination. Because of this I feel that all future updates to the 
program be approached from the assumption that all previous 
improvements have been made. Some will not really be necessary of 
course, but it is now too complicated to check out every possible 
combination you may select so the following routines assume you have 
already included the changes from the first issue and the original 
manual. It is also assumed that vou will add all the routines from 
this issue. 


I am also planning another issue which will probably be the 
biggest so far (and maybe the last if I don't get more ideas). It will 
elaborate on the TALLY routine by showing how to change which line can 
hold the numeric information and how to add more lines of numeric data 
and handle it in a slightly different manner. А further improvement in 
saving data will be offered along with a cursor wrap around feature, 
more memory savings, a way to printout first names first when your 
files list last name first, a way to repeatedly create a framework 
file whose details can be filled in later, and for all you Spectrum 
owners (or those with emulators) there will be instructions for using 
Profile with those systems with or without Sinclair microdrives! I am 
already using all these improvements and hope to have the newsletter 
available soon for the usual $6.00. 


This issue has the following enhancements: 


1. UPDATE routine: When at the main menu, enter a search command 
that ends with the reverse slash and the letter "U". The program will 
then ask what line you wish to change followed by what data will be 
changed, and then ask for the new data. When all that information has 
been entered, the program will find the first file that fits your 
search command and display it on the screen. It then checKs the line 
number you input (1-15) and if it starts with the data you input it 
will change the line to hold the new data. It will then continue on to 
the next match until all appropriate files have been corrected. Please 
note that all files displayed, whether changed or not, are deleted 
from the program and then added back on to the end. Therefore your 
files are no longer in the same order (you could do this deliberately 
to group certain files together). 

You can change any data you wish on a line from nothing to all 32 
characters but the data to be changed must begin at the start of the 
line! If you wish to change "STUDENT FILE NUMBER: " to be “STUDENT 
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RECORD NUMBER: " you would input the data to change to be "STUDENT 
FILE" and the new data to be “STUDENT RECORD* because you must start 
with the first character. Remember this when you set up your data. If 
your data is indented on the screen you must provide the leading 
spaces on the data you are searching for. The new data can be shorter 
or longer than the original. Just remember that anything you type in 
for data to be changed will be completely deleted and then the new 
data will be inserted. Any other data on that line will be moved left 
or right as necessary. If the new data length combined with the 
remaining data is greater than 32 the ending characters of the old 
data will be cut off permanently (this can be used to your advantage). 

There are two main uses for this routine. One is to update 
information. I use this to alter my student’s records each year. I go 
through my files checking for all students in 12th grade and changing 
"12th" to "GRADUATED", "1ith" to "12th", "10th" to *fith", etc. 
Consider carefully the order you change things in. If I started with 
the 10th grade first and made them 11th and then changed the 11th 
grade to 12th I would actually end up with all 12th graders! 

The other main use would be in setting up new files. I set up a 
lot of skeleton files - just an asterisk (X) followed by a special 
code I will search for later. Since almost all my students have the 
same address as far as City, state and zip code are concerned I do an 
update search for my special code, select line 3 to change (where the 
City, state, zip goes), input "" as the data to change, and 
"SUMMERVILLE, GA 30747" as the new data. Now the program will 
automatically insert the address in every one of those files. With 100 
new students I just saved about 2000 keystrokes! 

The routine can also be used to cover information you decide you 
no longer want Бу entering 32 spaces as the пеш data. 

As the program runs you can pause it by holding down the space 
bar. When a file appears wait until you see some instructions flashing 
at the bottom of the screen. Now vou can release the space bar. To 
continue press another Key (but not space). To stop the routine press 
BREAK. Warning: The data on the screen has already been deleted and 
the only way to save it is to continue the program. If you use break 
the data is lost! The pause is really just to allow you to make a note 
of any file change that you didn’t want to occur so you can correct it 
when done, 

This is a very powerful routine but also dangerous. You may think 
you are only going to change the grade a student is in for example, 
but if you happen to have some files with a 12th street in that same 
line and position it will be changed as well! Careful planning of file 
organization helps as well as the use of codes. My grades are followed 
by a "-" and the year the student entered band class such as 
"10th-1980" so by changing "10th-" instead of "10th" I help avoid 
problems. 

I suggest you practice on a file tape which is safely backed up 
until you get used to it. 


2. MIDDLE SEARCH: This is not a very good name, but what it does is 
allow you to do a search and then begin a new search from the next 
file. Why? Well, suppose you were printing out files and your printer 
went haywire half way through. Normally you would have to start all 
over, but with this you can search for the last file you successfully 
printed and then start a new search from there! The new search can be 
set up as an auto search or a normal search. 


When you are at the appropriate file you enter ">" to allow for a 
normal search from that point or "b=" for an auto search with 
printout. The lower screen will then prompt you to enter a new search 
command. 


3. EDIT TO NEXT IMPROUEMENT: Actually, the original version of this 
routine does not really go to the next matching file although in most 
cases it has that effect. In reality it starts a new search from the 
beginning, but since the editted file is now at the end of the file 
space, the program does seem to go to the next file. However, suppose 
you were searching for every file containing NEW YORK and as you 
stepped through them the first 6 such files were okay, but most of the 
remainder had to be changed. As presently set up you would step 
through the first 6 and then edit the seventh using the edit to next 
routine which would then force you to again step through the first 6 
files. This can get tiresome. The new version acts similariy to the 
MIDDLE SEARCH in that it continues from wherever you left off so the 
first files are avoided. Just close the file with the token " STEP ". 


4. EDIT TO ADD or ADD TO ADD: When adding or editing a file you can 
close it using the token " TO " and you will go to a blank screen 
where you can add another file instead of returning to the menu. 


It may be a good idea at this point to make up a little card 
which you can Keep by the computer to help you remember all the new 
commands from the manual and this newsletter: 


MAIN MENU: NN : Neu Name 
RST: Restart 
T : Key Tick 


SPECIAL SEARCHES: U for Update 
T for Tally 


EDIT MENU: STEP: EDIT TO NEXT 
TO : EDIT TO ADD or ADD TO ADD 
THEN: Print file being editted 


DISPLAY MENU: > : Middle Search 
=): Middle Search with Printer Output 


Now make the following changes to the program (remember from the 
first issue that you can save memory using VAL, CODE, and using 
variables- all will be used in the following lines so I hope you added 
the variables from the first issue) If you didn’t, remember U-1, 0-0 
(zero), G=7, J=15, Fz4: 


3 IF INKEY$-" " THEN ON ERR 6 

0 TO VAL "9400": PRINT AT VAL "2 

1",0; FLASH U;"BREAK Т0 EXIT/ENT 

ER TO CONTINUE ": PAUSE 0: GO TO 
F*U 


6 BORDER 0: PAPER 0: LET Y=0: 
DIM E$CXJ,CODE " "5: CLS 


9 IF J$="U" THEN LET X$-X$: G 
0 TO CODE "ш" 


10 IF Y$-"D* OR Y$-* STEP " TH 
EN POKE VAL "64022", PEEK VAL "64 
026": POKE VAL "64023" ,PEEK VAL 
"44027": LET B-(PEEK VAL "64024" 
+VAL "254" %РЕЕК VAL * 54025") +В: 
POKE VAL "64024",B-VAL "256"*INT 

(B/VAL "256"): POKE VAL "64025" 
,INT (B/VAL "256"): GO TO VAL "1 
50" 


145 IF А-0 THEN IF J$="U" THEN 
LET 2%-"И": LET A=U: LET Y-0: LE 
T Y$=" STEP ": INPUT "WHICH LINE 

TO CHANGE? ";L: INPUT "WHAT DAT 
A TO CHANGE? *;P$: INPUT “WHAT I 
S NEW DATA? ";0%: IF LEN G$4U OR 

LEN @$>CODE * " OR L<U OR LOU Т 
HEN LET А=0: GO TO VAL "145" 


1010 IF (A-0 OR J$-"U*) AND E$(U 
; TO VAL *18")2D$(U*U TO J+F) AN 
D BOP THEN CLS : GO TO VAL 7150 


1056 IF Y$=">" OR Y$=*>=" THEN L 
ET L=PEEK VAL "54022": LET C=PEE 
K VAL "64023": INPUT "NEW SEARCH 
COMMAND? ";X$: IF X$-"" THEN GO 
TO VAL "1056" 


1057 IF Y$=">" OR Y$=">=" THEN I 
F X$(LEN X$)=" AND " OR LEN X$2C 
ODE * * THEN GO TO VAL "1056" 


1058 IF Y$=">" OR Y$=">=" THEN L 
ET X$-X$: RANDOMIZE USR VAL "640 
46": POKE VAL "64022",L: POKE VA 
L "64023",C: LET Y=Y$=">=": LET 

Y$-"*: IF B<P THEN CLS : LET T=0 
: LET Td=0: LET T1=0: GO TO VAL 

"130" 


4000 LET P-P-USR VAL "63640": LE 
T B-P: IF Y$="D" THEN LET Y$="": 
G0 TO U 


5016 LET Y$-INKEY$: IF ҮЗо-" TO 
" THEN ON ERR RESET : FLASH 8: G 
0 TO 4000 


$000 IF J$-"U* THEN LET 0$¢P)=CH 
R$ (VAL "42"-A*UAL "42%0 


5001 FOR X-U TO J 


6020 LET P-USR VAL "43530": LET 
B-P-B 


4030 GO TO Ғ-(Ү%-" STOP ")+(А%*(Ү 
$=" STEP "'OD«(UAL "4996"x(Y$-" T 
0 "90 


8585 LET P=P-USR VAL "63640": GO 
TO VAL "9300" 


9100 IF J$="U" THEN LET Ti=T1/VA 
L *2* 


9105 PRINT АТ J,0;"CNT="3T13: IF 
J$="T" THEN PRINT * SUMi-";T;" 
SUM2=" ;TÀ 


9300 IF P$-ES$(L, TO LEN РФ) THEN 
LET ЕФ(12-0%%Е%(1,1ЕМ P$+U TO ) 
: PRINT АТ L-U,0;E$CL) 


9310 GO TO VAL * 5000" 


9400 PAUSE VAL "20": LET Y$=" ST 
OP ": ON ERR RESET : GO TO U 


9996 LET P=VAL "20": DIM DS<VAL 

"28020"): LET O-NOT PI: LET B-0: 
LET U=SGN PI: LET G=VAL "7": LE 

T J=VAL "15": LET F=VAL "4": LET 
D$: TO P)="*SEARCH 15 COMPLETE* 
*; LET AS="ALL": LET C#="": FOR 

X-U TO J: LET C$-C$4CHR$ X: NEXT 
X: LET 5-0 


Now to fix some bugs. If vou added the enhancement from the 
manual which avoids LPRINTing blank lines you will find it will not 
always work properly (if you purchased an enhanced version from Tom 
Woods it may be okay). Change the following: 


7220 IF CODE С%(Х) THEN IF E$(CO 
DE C$(X))>" 

“ THEN LPRINT ЕФ‹ СОСЕ 
C$(X)) 


A further improvement in the editting routine is shown below. It 
should completely eliminate the times when you press a Key but it 
fails to appear on the screen. 


5010 LET Y$=INKEY$: IF Y$="" THE 
Ы GO TO 5010 


5018 IF Y$>=" TO " THEN ON ERR R 
ESET : FLASH 8: GO TO 4000 
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Another problem occurs when editting a line which has a character 
in the last position of that line. If you delete апу characters within 
the line, the last character is also deleted! Make this correction: 


5112 LET ES(L+U)=ES(L+U, ТО C)+E 
$(L+U,C+U+U TO 2: PRINT AT 1,0;Е 
$(L+U): GO TO VAL "5108" 


I hope these routines help you as much as they help me. If vou 
have any problems, please let me Know. I know my newsletter is not 
very pretty, but looks will have to wait until I develop a large 
enough market to support professional printing. I try to provide the 
things I would want from a company: fast response (orders go out 
within 24 hrs, but usually the same day) and useful information of 
course, 

I would appreciate any ideas you may have for further 
improvements to Profile. 


If you are a teacher, I offer the only machine code operated 
gradebook for either Timex computer. They have more capacity and 
features than any other. Guaranteed satisfaction! $19.95(2048) or 
%15.95(1000). 


ROBERT С FISCHER; 221 SCOGGINS ST; SUMMERVILLE, GA 30747 


ON 


